COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PROCEDURE SHRING(REFERENCE INTEGER P1,P2)
C00003 ENDMK
C⊗;
PROCEDURE SHRING(REFERENCE INTEGER P1,P2);
   BEGIN

   INTEGER I,J,K,L,M,HIG1,WID1,HIG2,WID2,BIT1,BIT2;

   WID1←MEMORY[LOCATION(P1)+LNBY];
   HIG1←MEMORY[LOCATION(P1)+PCLN];
   BIT1←MEMORY[LOCATION(P1)+BYBI];

   WID2←MEMORY[LOCATION(P2)+LNBY];
   HIG2←MEMORY[LOCATION(P2)+PCLN];
   BIT2←MEMORY[LOCATION(P2)+BYBI];

   FOR I←0 STEP 1 UNTIL HIG2-1 DO
      BEGIN
      REAL ARRAY T[0:WID2-1];


      FOR J←0 STEP 1 UNTIL WID2-1 DO
         BEGIN